#
# pH+ 
#
# Object class

require 'ph/html/tag'
require 'ph/html/property'
require 'ph/ui/call'

module Ph
  class Control < Ph::Tag

    phplus_property :id, :style, :class_name, :type, :value
    phplus_property :onclick

		phplus_call :expand, :hide, :show
    
    def initialize
      super
      
      classname = self.class.name.to_s.sub('Ph::', 'ph').downcase
      
      self.id= classname + @id
      self.class_name= classname
      self.properties[:class_name].name = 'class'
      
    end
    
  end
end
